Internet.Works 39/Issue 39.iso/pc/Utilities/00008_Tool4.ls

Text File | 2000-10-18 | 717 b | 30 lines

on mouseWithin
  cursor(280)
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    member("Title4").foreColor = 0
  else
    if sprite(the currentSpriteNum).foreColor <> 70 then
      sprite(the currentSpriteNum).foreColor = 255
      member("Title4").foreColor = 0
    end if
  end if
end

on mouseLeave
  cursor(0)
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    member("Title4").foreColor = 0
  else
    if sprite(the currentSpriteNum).foreColor <> 70 then
      sprite(the currentSpriteNum).foreColor = 246
      member("Title4").foreColor = 255
    end if
  end if
end

on mouseDown
  go("Title4")
end